
		Imports Acceso_a_Datos.Datos
		Namespace BO
		Partial Public Class tMunicipios
# Region "tCarnet_x_Persona"
	private mlistatCarnet_x_Persona As New List (Of tCarnet_x_Persona)
Public Property ListatCarnet_x_Persona As System.Collections.Generic.List(Of tCarnet_x_Persona)
Get
dim mtCarnet_x_Persona As New tCarnet_x_Persona
mlistatCarnet_x_Persona =mtCarnet_x_Persona.TraerFiltradoListOf("IdMunicipio",Me.IdMunicipio)
Return mlistatCarnet_x_Persona
End Get
Set
RemoveAllListatCarnet_x_Persona()
If Not (Value Is Nothing) Then
Dim otCarnet_x_Persona As tCarnet_x_Persona
	For Each otCarnet_x_Persona in Value
		AddListatCarnet_x_Persona(otCarnet_x_Persona)
	Next
End If
End Set
End Property


		
		
	   Public Sub AddListatCarnet_x_Persona(newtCarnet_x_Persona As tCarnet_x_Persona)
	If (mlistatCarnet_x_Persona Is Nothing) Then
		mlistatCarnet_x_Persona = new System.Collections.Generic.List(Of tCarnet_x_Persona)
	End If
	If Not mlistatCarnet_x_Persona.Contains(newtCarnet_x_Persona) Then
		mlistatCarnet_x_Persona.Add(newtCarnet_x_Persona)
		newtCarnet_x_Persona.tMunicipios = Me
	End If
End Sub

	   
	   
	   
	   Public Sub RemoveListatCarnet_x_Persona(oldtCarnet_x_Persona As tCarnet_x_Persona)
	If (mlistatCarnet_x_Persona.Contains(oldtCarnet_x_Persona)) Then
		mlistatCarnet_x_Persona.Remove(oldtCarnet_x_Persona)
		oldtCarnet_x_Persona.tMunicipios = Nothing
	End If
End Sub
	
			
			Public Sub RemoveAllListatCarnet_x_Persona()
	If Not (mlistatCarnet_x_Persona Is Nothing)
		Dim tmp_listatCarnet_x_Persona As System.Collections.ArrayList = new System.Collections.ArrayList()
		Dim oldtCarnet_x_Persona As tCarnet_x_Persona
		For Each oldtCarnet_x_Persona in mlistatCarnet_x_Persona
			tmp_listatCarnet_x_Persona.Add(oldtCarnet_x_Persona)
		Next
	mlistatCarnet_x_Persona.Clear()
	For Each oldtCarnet_x_Persona in tmp_listatCarnet_x_Persona
		oldtCarnet_x_Persona = Nothing
	Next
	tmp_listatCarnet_x_Persona.Clear()
	End If
End Sub

# End Region
# Region "tEmpresas"
	private mlistatEmpresas As New List (Of tEmpresas)
Public Property ListatEmpresas As System.Collections.Generic.List(Of tEmpresas)
Get
dim mtEmpresas As New tEmpresas
mlistatEmpresas =mtEmpresas.TraerFiltradoListOf("IdMunicipio",Me.IdMunicipio)
Return mlistatEmpresas
End Get
Set
RemoveAllListatEmpresas()
If Not (Value Is Nothing) Then
Dim otEmpresas As tEmpresas
	For Each otEmpresas in Value
		AddListatEmpresas(otEmpresas)
	Next
End If
End Set
End Property


		
		
	   Public Sub AddListatEmpresas(newtEmpresas As tEmpresas)
	If (mlistatEmpresas Is Nothing) Then
		mlistatEmpresas = new System.Collections.Generic.List(Of tEmpresas)
	End If
	If Not mlistatEmpresas.Contains(newtEmpresas) Then
		mlistatEmpresas.Add(newtEmpresas)
		newtEmpresas.tMunicipios = Me
	End If
End Sub

	   
	   
	   
	   Public Sub RemoveListatEmpresas(oldtEmpresas As tEmpresas)
	If (mlistatEmpresas.Contains(oldtEmpresas)) Then
		mlistatEmpresas.Remove(oldtEmpresas)
		oldtEmpresas.tMunicipios = Nothing
	End If
End Sub
	
			
			Public Sub RemoveAllListatEmpresas()
	If Not (mlistatEmpresas Is Nothing)
		Dim tmp_listatEmpresas As System.Collections.ArrayList = new System.Collections.ArrayList()
		Dim oldtEmpresas As tEmpresas
		For Each oldtEmpresas in mlistatEmpresas
			tmp_listatEmpresas.Add(oldtEmpresas)
		Next
	mlistatEmpresas.Clear()
	For Each oldtEmpresas in tmp_listatEmpresas
		oldtEmpresas = Nothing
	Next
	tmp_listatEmpresas.Clear()
	End If
End Sub

# End Region
# Region "tMicroemprendimientos"
	private mlistatMicroemprendimientos As New List (Of tMicroemprendimientos)
Public Property ListatMicroemprendimientos As System.Collections.Generic.List(Of tMicroemprendimientos)
Get
dim mtMicroemprendimientos As New tMicroemprendimientos
mlistatMicroemprendimientos =mtMicroemprendimientos.TraerFiltradoListOf("IdMunicipio",Me.IdMunicipio)
Return mlistatMicroemprendimientos
End Get
Set
RemoveAllListatMicroemprendimientos()
If Not (Value Is Nothing) Then
Dim otMicroemprendimientos As tMicroemprendimientos
	For Each otMicroemprendimientos in Value
		AddListatMicroemprendimientos(otMicroemprendimientos)
	Next
End If
End Set
End Property


		
		
	   Public Sub AddListatMicroemprendimientos(newtMicroemprendimientos As tMicroemprendimientos)
	If (mlistatMicroemprendimientos Is Nothing) Then
		mlistatMicroemprendimientos = new System.Collections.Generic.List(Of tMicroemprendimientos)
	End If
	If Not mlistatMicroemprendimientos.Contains(newtMicroemprendimientos) Then
		mlistatMicroemprendimientos.Add(newtMicroemprendimientos)
		newtMicroemprendimientos.tMunicipios = Me
	End If
End Sub

	   
	   
	   
	   Public Sub RemoveListatMicroemprendimientos(oldtMicroemprendimientos As tMicroemprendimientos)
	If (mlistatMicroemprendimientos.Contains(oldtMicroemprendimientos)) Then
		mlistatMicroemprendimientos.Remove(oldtMicroemprendimientos)
		oldtMicroemprendimientos.tMunicipios = Nothing
	End If
End Sub
	
			
			Public Sub RemoveAllListatMicroemprendimientos()
	If Not (mlistatMicroemprendimientos Is Nothing)
		Dim tmp_listatMicroemprendimientos As System.Collections.ArrayList = new System.Collections.ArrayList()
		Dim oldtMicroemprendimientos As tMicroemprendimientos
		For Each oldtMicroemprendimientos in mlistatMicroemprendimientos
			tmp_listatMicroemprendimientos.Add(oldtMicroemprendimientos)
		Next
	mlistatMicroemprendimientos.Clear()
	For Each oldtMicroemprendimientos in tmp_listatMicroemprendimientos
		oldtMicroemprendimientos = Nothing
	Next
	tmp_listatMicroemprendimientos.Clear()
	End If
End Sub

# End Region
# Region "tPersonas"
	private mlistatPersonas As New List (Of tPersonas)
Public Property ListatPersonas As System.Collections.Generic.List(Of tPersonas)
Get
dim mtPersonas As New tPersonas
mlistatPersonas =mtPersonas.TraerFiltradoListOf("IdMunicipio",Me.IdMunicipio)
Return mlistatPersonas
End Get
Set
RemoveAllListatPersonas()
If Not (Value Is Nothing) Then
Dim otPersonas As tPersonas
	For Each otPersonas in Value
		AddListatPersonas(otPersonas)
	Next
End If
End Set
End Property


		
		
	   Public Sub AddListatPersonas(newtPersonas As tPersonas)
	If (mlistatPersonas Is Nothing) Then
		mlistatPersonas = new System.Collections.Generic.List(Of tPersonas)
	End If
	If Not mlistatPersonas.Contains(newtPersonas) Then
		mlistatPersonas.Add(newtPersonas)
		newtPersonas.tMunicipios = Me
	End If
End Sub

	   
	   
	   
	   Public Sub RemoveListatPersonas(oldtPersonas As tPersonas)
	If (mlistatPersonas.Contains(oldtPersonas)) Then
		mlistatPersonas.Remove(oldtPersonas)
		oldtPersonas.tMunicipios = Nothing
	End If
End Sub
	
			
			Public Sub RemoveAllListatPersonas()
	If Not (mlistatPersonas Is Nothing)
		Dim tmp_listatPersonas As System.Collections.ArrayList = new System.Collections.ArrayList()
		Dim oldtPersonas As tPersonas
		For Each oldtPersonas in mlistatPersonas
			tmp_listatPersonas.Add(oldtPersonas)
		Next
	mlistatPersonas.Clear()
	For Each oldtPersonas in tmp_listatPersonas
		oldtPersonas = Nothing
	Next
	tmp_listatPersonas.Clear()
	End If
End Sub

# End Region
# Region "tSolicitudes"
	private mlistatSolicitudes As New List (Of tSolicitudes)
Public Property ListatSolicitudes As System.Collections.Generic.List(Of tSolicitudes)
Get
dim mtSolicitudes As New tSolicitudes
mlistatSolicitudes =mtSolicitudes.TraerFiltradoListOf("IdMunicipio",Me.IdMunicipio)
Return mlistatSolicitudes
End Get
Set
RemoveAllListatSolicitudes()
If Not (Value Is Nothing) Then
Dim otSolicitudes As tSolicitudes
	For Each otSolicitudes in Value
		AddListatSolicitudes(otSolicitudes)
	Next
End If
End Set
End Property


		
		
	   Public Sub AddListatSolicitudes(newtSolicitudes As tSolicitudes)
	If (mlistatSolicitudes Is Nothing) Then
		mlistatSolicitudes = new System.Collections.Generic.List(Of tSolicitudes)
	End If
	If Not mlistatSolicitudes.Contains(newtSolicitudes) Then
		mlistatSolicitudes.Add(newtSolicitudes)
		newtSolicitudes.tMunicipios = Me
	End If
End Sub

	   
	   
	   
	   Public Sub RemoveListatSolicitudes(oldtSolicitudes As tSolicitudes)
	If (mlistatSolicitudes.Contains(oldtSolicitudes)) Then
		mlistatSolicitudes.Remove(oldtSolicitudes)
		oldtSolicitudes.tMunicipios = Nothing
	End If
End Sub
	
			
			Public Sub RemoveAllListatSolicitudes()
	If Not (mlistatSolicitudes Is Nothing)
		Dim tmp_listatSolicitudes As System.Collections.ArrayList = new System.Collections.ArrayList()
		Dim oldtSolicitudes As tSolicitudes
		For Each oldtSolicitudes in mlistatSolicitudes
			tmp_listatSolicitudes.Add(oldtSolicitudes)
		Next
	mlistatSolicitudes.Clear()
	For Each oldtSolicitudes in tmp_listatSolicitudes
		oldtSolicitudes = Nothing
	Next
	tmp_listatSolicitudes.Clear()
	End If
End Sub

# End Region
# Region "tUsuarios"
	private mlistatUsuarios As New List (Of tUsuarios)
Public Property ListatUsuarios As System.Collections.Generic.List(Of tUsuarios)
Get
dim mtUsuarios As New tUsuarios
mlistatUsuarios =mtUsuarios.TraerFiltradoListOf("IdMunicipio",Me.IdMunicipio)
Return mlistatUsuarios
End Get
Set
RemoveAllListatUsuarios()
If Not (Value Is Nothing) Then
Dim otUsuarios As tUsuarios
	For Each otUsuarios in Value
		AddListatUsuarios(otUsuarios)
	Next
End If
End Set
End Property


		
		
	   Public Sub AddListatUsuarios(newtUsuarios As tUsuarios)
	If (mlistatUsuarios Is Nothing) Then
		mlistatUsuarios = new System.Collections.Generic.List(Of tUsuarios)
	End If
	If Not mlistatUsuarios.Contains(newtUsuarios) Then
		mlistatUsuarios.Add(newtUsuarios)
		newtUsuarios.tMunicipios = Me
	End If
End Sub

	   
	   
	   
	   Public Sub RemoveListatUsuarios(oldtUsuarios As tUsuarios)
	If (mlistatUsuarios.Contains(oldtUsuarios)) Then
		mlistatUsuarios.Remove(oldtUsuarios)
		oldtUsuarios.tMunicipios = Nothing
	End If
End Sub
	
			
			Public Sub RemoveAllListatUsuarios()
	If Not (mlistatUsuarios Is Nothing)
		Dim tmp_listatUsuarios As System.Collections.ArrayList = new System.Collections.ArrayList()
		Dim oldtUsuarios As tUsuarios
		For Each oldtUsuarios in mlistatUsuarios
			tmp_listatUsuarios.Add(oldtUsuarios)
		Next
	mlistatUsuarios.Clear()
	For Each oldtUsuarios in tmp_listatUsuarios
		oldtUsuarios = Nothing
	Next
	tmp_listatUsuarios.Clear()
	End If
End Sub

# End Region


# Region "Lecturas que devuelven listas"
Public Function TraerTodosListOf() As List(Of tMunicipios)
            Dim dtDatos As DataTable
            Dim listatMunicipios As New List(Of tMunicipios)
            Dim param As [String]
            param = (Me.mNombreEntidad + "_SelectAll")
            dtDatos = Me.ServidorDatos.TraerDataTable(param)
            For Each dr As DataRow In dtDatos.Rows
            Dim mtMunicipios As New tMunicipios
				mtMunicipios.IdMunicipio = CType(dr.Item("IdMunicipio"),Integer)
				mtMunicipios.Traer_objeto()
            	listatMunicipios.Add( mtMunicipios)
    		Next dr
Return listatMunicipios
End Function

Public Function TraerFiltradoListOf(ByVal Filtro As [String], ByVal Args As Object) As List(Of tMunicipios)
            Dim dtDatos As DataTable
            Dim param As [String]
            Dim listatMunicipios As New List(Of tMunicipios)
            param = (Me.mNombreEntidad + "_Tx")
            param = (param + Filtro.ToString)
            dtDatos = Me.ServidorDatos.TraerDataTable(param, Args)
            For Each dr As DataRow In dtDatos.Rows
            Dim mtMunicipios As New tMunicipios
				mtMunicipios.IdMunicipio = CType(dr.Item("IdMunicipio"),Integer)
				mtMunicipios.Traer_objeto()
            	listatMunicipios.Add( mtMunicipios)
    		Next dr
Return listatMunicipios
End Function

Public Function TraerFiltradoLikeListOf(ByVal Filtro As [String], ByVal Args As Object) As List(Of tMunicipios)
            Dim dtDatos As DataTable
            Dim param As [String]
            Dim listatMunicipios As New List(Of tMunicipios)
            param = (Me.mNombreEntidad + "_TxLike")
            param = (param + Filtro.ToString)
            dtDatos = Me.ServidorDatos.TraerDataTable(param, Args)
            For Each dr As DataRow In dtDatos.Rows
            Dim mtMunicipios As New tMunicipios
				mtMunicipios.IdMunicipio = CType(dr.Item("IdMunicipio"),Integer)
				mtMunicipios.Traer_objeto()
            	listatMunicipios.Add( mtMunicipios)
    		Next dr
Return listatMunicipios
End Function
# End Region

End Class
End Namespace
